|
100
|
How can I programmatically clear the control's filter
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
procedure TWinForm1.AxPivot1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxPivot1 do
begin
ClearFilter();
end
end;
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FilterBarPromptVisible := EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible;
FilterBarPromptPattern := 'USA';
EndUpdate();
end
|
|
99
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FilterBarPromptPattern := 'USA';
FilterBarPromptVisible := Integer(EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible) Or Integer(EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
EndUpdate();
end
|
|
98
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FilterBarPromptVisible := EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible;
FilterBarPromptPattern := 'USA';
EndUpdate();
end
|
|
97
|
Is it possible to prevent closing the control's filter bar, so it is always shown
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FilterBarCaption := 'len(value) = 0 ? `<fgcolor=808080>no filter` : value';
FilterBarPromptVisible := EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible;
EndUpdate();
end
|
|
96
|
How can I find if the control is running in DPI mode
with AxPivot1 do
begin
OutputDebugString( FormatABC('dpi = 1 ? `normal/stretch mode` : `dpi mode`',Nil,Nil,Nil) );
end
|
|
95
|
If I connect it to a datasource, all works perfectly but the records that I see in the control is a little number of total of the recordset. I need to show all 60.000 rows of the recordset without click on the [...] button. It s possible to setting up this parameters
with AxPivot1 do
begin
DisplayPivotData := -1;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
end
|
|
94
|
How do I change the drop down filter icon/button (white)
with AxPivot1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(2,'gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ' +
'0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN' +
'YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h' +
'hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb' +
'hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB' +
'MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=');
Add(1,'CP:2 -6 -4 2 4');
end;
set_Background(EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,$1000000);
set_Background(EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,BackColor);
HeaderVisible := True;
HeaderHeight := 24;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DisplayFilterList := Integer(EXPIVOTLib.FilterListEnum.exShowCheckBox) Or Integer(EXPIVOTLib.FilterListEnum.exSortItemsAsc);
PivotBarVisible := EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible;
EndUpdate();
end
|
|
93
|
How do I change the drop down filter icon/button (black)
with AxPivot1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQg' +
'mPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThd' +
'r4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA');
end;
set_Background(EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,$1000000);
set_Background(EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
BackColorHeader := Color.FromArgb(0,0,0);
ForeColorHeader := Color.FromArgb(255,255,255);
HeaderVisible := True;
HeaderHeight := 22;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DisplayFilterList := Integer(EXPIVOTLib.FilterListEnum.exShowCheckBox) Or Integer(EXPIVOTLib.FilterListEnum.exSortItemsAsc);
EndUpdate();
end
|
|
92
|
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control
with AxPivot1 do
begin
BeginUpdate();
(GetOcx() as EXPIVOTLib.Pivot).BackColorAlternate := $7ff0f0f0;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '12';
PivotColumns := 'sum(5)';
EndUpdate();
end
|
|
91
|
How can I find out if the user clicks the grid's header
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxPivot1_MouseMoveEvent(sender: System.Object; e: AxEXPIVOTLib._IPivotEvents_MouseMoveEvent);
begin
with AxPivot1 do
begin
OutputDebugString( 'Type of ColumnFromPoint: ' );
OutputDebugString( get_ColumnFromPoint(-1,-1) );
OutputDebugString( ' should not be VT_NULL' );
OutputDebugString( 'Type of ValueFromPoint: ' );
OutputDebugString( get_ValueFromPoint(-1,-1) );
OutputDebugString( ' should be VT_NULL' );
end
end;
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)';
end
|
|
90
|
What should I set FormatPivotHeader to, to show it on the columns header only
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12';
FormatPivotHeader := '(iaggregate ? ( caption + ` <off -6><font ;6>(` + lower(caggregate) + '')</off></font>'') : caption) + ( ( display=1 ? `<c>Date: <' +
'b><upline><dotline>` + date(`now`) : `` ) + `</dotline> </b>` )';
EndUpdate();
end
|
|
89
|
What should I set FormatPivotHeader to, to show "Report Generated on 7/9/2016 14:20" etc when the report is executed (ie the date and time will change)
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12';
FormatPivotHeader := '(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + '')</off></font>'') : caption) + `<r>ReportDate: ' +
'` + date(`now`)';
EndUpdate();
end
|
|
88
|
Is it possible to display aggregate result on parent rows as well
with AxPivot1 do
begin
BeginUpdate();
HeaderHeight := 22;
DefaultItemHeight := 20;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '12[bold],0';
with FormatConditionalAppearances.Add('nempty','not empty','') do
begin
Expression := 'len(value) != 0';
BackColor := $f0f0f0;
end;
PivotColumns := 'sum(5)[nempty]/6';
IncludeExpandColumn := EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn;
DrawGridLines := EXPIVOTLib.GridLinesEnum.exNoLines;
ShowBranchRows := Integer(EXPIVOTLib.ShowBranchRowsEnum.exBranchIncludeAggregate) Or Integer(EXPIVOTLib.ShowBranchRowsEnum.exBranchTree);
EndUpdate();
end
|
|
87
|
How do I show expanded/collapsed rows
with AxPivot1 do
begin
BeginUpdate();
HeaderHeight := 22;
DefaultItemHeight := 20;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '12[bold],0';
with FormatConditionalAppearances.Add('nempty','not empty','') do
begin
Expression := 'len(value) != 0';
BackColor := $f0f0f0;
end;
PivotColumns := 'sum(5)[nempty]/6';
IncludeExpandColumn := EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn;
DrawGridLines := EXPIVOTLib.GridLinesEnum.exNoLines;
EndUpdate();
end
|
|
86
|
How do I show expanded/collapsed columns
with AxPivot1 do
begin
BeginUpdate();
HeaderHeight := 22;
DefaultItemHeight := 20;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
with FormatConditionalAppearances.Add('nempty','not empty','') do
begin
Expression := 'len(value) != 0';
BackColor := $f0f0f0;
end;
PivotColumns := 'sum(5)[nempty]/12';
FormatPivotHeader := '(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)';
IncludeExpandColumn := EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn;
EndUpdate();
end
|
|
85
|
Where you have say "Sum of ...." as the first row heading of the pivot are there and options to be able to change this text as a whole
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
with FormatConditionalAppearances.Add('nempty','not empty','') do
begin
Expression := 'len(value) != 0';
BackColor := $f0f0f0;
end;
PivotColumns := 'sum(5)[nempty]/12';
FormatPivotHeader := '(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + '' )'') : caption)';
EndUpdate();
end
|
|
84
|
How can I get the data column from the cursor
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxPivot1_MouseMoveEvent(sender: System.Object; e: AxEXPIVOTLib._IPivotEvents_MouseMoveEvent);
begin
with AxPivot1 do
begin
OutputDebugString( 'DataColumn' );
OutputDebugString( get_DataColumnFromPoint(-1,-1) );
end
end;
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric]';
Refresh();
end
|
|
83
|
Is there any way for the user to change the alignment at runtime (using excontextmenu)
// RClick event - Occurs once the user right clicks the control.
procedure TWinForm1.AxPivot1_RClick(sender: System.Object; e: System.EventArgs);
begin
with AxPivot1 do
begin
h := DataColumns.item[TObject(5)].Alignment;
c := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu')) as EXCONTEXTMENULib.ExContextMenu);
with c do
begin
FlatImageWidth := 0;
ToString := 'Alignment[align=1][dis],[group=0x71](Left[typ=2][grp=100][close=0][id=0],Center[typ=2][grp=100][close=0][id=1],Right[typ=2][grp=' +
'100][close=0][id=2])';
item[TObject(h)].Checked := True;
h := Select(Nil,Nil,Nil);
end;
with DataColumns.item[TObject(5)] do
begin
Alignment := h;
HeaderAlignment := h;
end;
Refresh();
end
end;
with AxPivot1 do
begin
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with DataColumns.item[TObject(5)] do
begin
Alignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
end;
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric]';
Refresh();
end
|
|
82
|
Is there any way for the user to change the alignment at runtime
// RClick event - Occurs once the user right clicks the control.
procedure TWinForm1.AxPivot1_RClick(sender: System.Object; e: System.EventArgs);
begin
with AxPivot1 do
begin
OutputDebugString( 'The column gets aligned to the center' );
with DataColumns.item[TObject(5)] do
begin
Alignment := EXPIVOTLib.AlignmentEnum.CenterAlignment;
HeaderAlignment := EXPIVOTLib.AlignmentEnum.CenterAlignment;
end;
Refresh();
end
end;
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with DataColumns.item[TObject(5)] do
begin
Alignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
end;
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric]';
Refresh();
end
|
|
81
|
How can I align a column to the right
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with DataColumns.item[TObject(5)] do
begin
Alignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
end;
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric]';
Refresh();
end
|
|
80
|
How can I display the control's content on an single A3 paper size, when using PDF format
with AxPivot1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatConditionalAppearances.item['positive'].BackColor := $100ff00;
FormatConditionalAppearances.item['negative'].BackColor := $10000ff;
PivotRows := '0';
PivotColumns := 'sum(5)[positive,negative]/12';
ExpandAll();
var_CopyTo := get_CopyTo('C:\Temp\Preview.pdf|11.69 in x 16.53 in||single');
OutputDebugString( 'Look for C:\Temp\Preview.pd file.' );
EndUpdate();
end
|
|
79
|
How can I display the control's content on an A3 paper size, when using PDF format
with AxPivot1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatConditionalAppearances.item['positive'].BackColor := $100ff00;
FormatConditionalAppearances.item['negative'].BackColor := $10000ff;
PivotRows := '0';
PivotColumns := 'sum(5)[positive,negative]/12';
ExpandAll();
var_CopyTo := get_CopyTo('C:\Temp\Preview.pdf|11.69 in x 16.53 in');
OutputDebugString( 'Look for C:\Temp\Preview.pd file.' );
EndUpdate();
end
|
|
78
|
How can I export the control's content to a PDF document (method 1)
with AxPivot1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatConditionalAppearances.item['positive'].BackColor := $100ff00;
FormatConditionalAppearances.item['negative'].BackColor := $10000ff;
PivotRows := '0';
PivotColumns := 'sum(5)[positive,negative]/12';
ExpandAll();
EndUpdate();
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
PrintExt := (AxPivot1.GetOcx() as EXPIVOTLib.Pivot).DefaultDispatch;
CopyTo('c:/temp/xtest.pdf');
end;
OutputDebugString( 'Look for C:\Temp\xtest.pdf file.' );
EndUpdate();
end
|
|
77
|
How can I export the control's content to a PDF document (method 2)
with AxPivot1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatConditionalAppearances.item['positive'].BackColor := $100ff00;
FormatConditionalAppearances.item['negative'].BackColor := $10000ff;
PivotRows := '0';
PivotColumns := 'sum(5)[positive,negative]/12';
ExpandAll();
var_CopyTo := get_CopyTo('c:/temp/xtest.pdf');
OutputDebugString( 'Look for C:\Temp\xtest.pdf file.' );
EndUpdate();
end
|
|
76
|
Does / could the control have a read-only mode by where I could load the data and layout and just use the control to display it and allow the user to scroll around it / print it but not change it
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric]';
DisplayFilterList := EXPIVOTLib.FilterListEnum.exNoItems;
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarReadOnly) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
Refresh();
end
|
|
75
|
Is it possible to edit the conditional-expression at runtime
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with FormatConditionalAppearances.Add('custom','custom','') do
begin
Bold := True;
FontSize := 12;
Expression := 'value > 2000';
ContextEditExpression := True;
end;
PivotRows := '0';
PivotColumns := 'sum(5)[custom]/12';
EndUpdate();
end
|
|
74
|
How can I highlight values using EBN colors
with AxPivot1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatConditionalAppearances.item['positive'].BackColor := $100ff00;
FormatConditionalAppearances.item['negative'].BackColor := $10000ff;
PivotRows := '0';
PivotColumns := 'sum(5)[positive,negative]/12';
EndUpdate();
end
|
|
73
|
How do I mark not-empty values in the chart
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
with FormatConditionalAppearances.Add('nempty','not empty','') do
begin
Expression := 'len(value) != 0';
BackColor := $f0f0f0;
end;
PivotColumns := 'sum(5)[nempty]/12';
EndUpdate();
end
|
|
72
|
How can I highlight negative and positive values in the same chart
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[negative,positive]/12';
EndUpdate();
end
|
|
71
|
How can I highlight values that starts with a letter
with AxPivot1 do
begin
BeginUpdate();
with FormatConditionalAppearances.Add('f','starts with f','lower(value) startwith `f`') do
begin
Expression := 'lower(value) startwith `f`';
Shadow := $1;
ShadowOffset := 0;
end;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0[f]';
EndUpdate();
end
|
|
70
|
How can I mark values greater than a value, 100 for instance
with AxPivot1 do
begin
BeginUpdate();
with FormatConditionalAppearances.Add('greater100','>100','value > 100') do
begin
Expression := '( dbl(value) != 0 ) ? (value > 100) : 0';
ForeColor := $ff;
end;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[greater100,content=numeric]';
EndUpdate();
end
|
|
69
|
How can I remove the Conditional context-menu
with AxPivot1 do
begin
BeginUpdate();
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric]';
EndUpdate();
end
|
|
68
|
How do change the way the negative/positive numbers show when using conditional-format
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with FormatConditionalAppearances.item['negative'] do
begin
BackColor := $0;
ForeColor := $808080;
FontSize := 8;
end;
with FormatConditionalAppearances.item['positive'] do
begin
BackColor := $0;
ForeColor := $1;
FontSize := 11;
end;
PivotRows := '0';
PivotColumns := 'sum(5)[negative,positive,content=numeric]';
EndUpdate();
end
|
|
67
|
How do I highlight the negative values with white color or black
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with FormatConditionalAppearances.item['negative'] do
begin
BackColor := $1;
ForeColor := $ffffff;
end;
PivotRows := '0';
PivotColumns := 'sum(5)[negative,content=numeric]';
EndUpdate();
end
|
|
66
|
Does your control support conditional-format, so I can highlight certain values
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[negative,content=numeric]';
EndUpdate();
end
|
|
65
|
How do I add a computed column/field, like VAT for instance (method 2)
with AxPivot1 do
begin
BeginUpdate();
with Aggregates do
begin
Add('vat19','sum','VAT 19%','VAT 19%').FormatValue := 'value * 0.19';
Add('vat24','sum','VAT 24%','VAT 24%').FormatValue := 'value * 0.24';
end;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric],vat19(5)[bold,content=numeric],vat24(5)[bold,content=numeric]';
EndUpdate();
end
|
|
64
|
How do I add a computed column/field, like VAT for instance (method 1)
with AxPivot1 do
begin
BeginUpdate();
with FormatContents.Add('vat19','VAT 19%',Nil) do
begin
Expression := 'len(value) ? ((value * 1.19) format '''') : ''''';
end;
with FormatContents.Add('vat24','VAT 24%',Nil) do
begin
Expression := 'len(value) ? ((value * 1.24) format '''') : ''''';
end;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[content=numeric],sum(5)[bold,content=vat19],sum(5)[bold,content=vat24]';
EndUpdate();
end
|
|
63
|
How can I hide some values for instance negative values
with AxPivot1 do
begin
BeginUpdate();
with FormatContents.Add('hiden','hide negative',Nil) do
begin
Expression := 'value < 0 ? `` : value';
end;
with FormatContents.Add('hidep','hide positive',Nil) do
begin
Expression := 'value > 0 ? `` : value';
end;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)[bold],sum(5)[content=hiden],sum(5)[content=hidep]';
EndUpdate();
end
|
|
62
|
How can I decode the Layout property
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12';
Layout := 'Columns =1;C0.Width = 64';
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
OutputDebugString( Decode64TextW[AxPivot1.Layout] );
end;
EndUpdate();
end
|
|
61
|
How can I specify the sorting type, so the column gets sorted as numeric for instance
with AxPivot1 do
begin
Import('1,1#11,11#101,101','eor=''#'' eof='','' hdr=0');
with DataColumns.item[TObject(0)] do
begin
Caption := 'Numeric';
SortType := EXPIVOTLib.SortTypeEnum.SortNumeric;
end;
DataColumns.item[TObject(1)].Caption := 'String (default)';
PivotRows := '0';
Refresh();
end
|
|
60
|
How can I disable the control's context menu
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
end
|
|
59
|
How do I get the captions of the columns
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
OutputDebugString( DataColumns.Count );
OutputDebugString( DataColumns.item[TObject(0)].PivotCaption );
OutputDebugString( DataColumns.item[TObject(0)].Caption );
OutputDebugString( DataColumns.item[TObject(1)].PivotCaption );
OutputDebugString( DataColumns.item[TObject(1)].Caption );
end
|
|
58
|
How can I specify the default-format for a specified column, so it always shows as numeric for instance
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with DataColumns.item['Freight'] do
begin
DefaultFormatContent := 'numeric';
DefaultFormatAppearances := 'bold';
SortOrder := EXPIVOTLib.SortOrderEnum.SortAscending;
SortType := EXPIVOTLib.SortTypeEnum.SortNumeric;
end;
PivotTotalDefaultFormatContent := 'currency';
PivotTotalDefaultFormatAppearances := 'strikeout,bold';
PivotRows := '0';
PivotColumns := 'sum(5)[bold,content=numeric]';
PivotTotals := 'sum[strikeout,bold,content=currency]';
PivotColumnsFloatBarVisible := EXPIVOTLib.PanelVisibleEnum.exPanelVisible;
Refresh();
end
|
|
57
|
How can I display the percentage column
with AxPivot1 do
begin
FormatContents.Add('percent','value + `%`',Nil);
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '5[content=percent]';
Refresh();
end
|
|
56
|
How do I change the name for months in the drop-down filter window (localization)
with AxPivot1 do
begin
OutputDebugString( get_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateMonths) );
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateMonths,'Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarAll,'(Toate)');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarBlanks,'(Gol)');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarNonBlanks,'(Plin)');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarFilterForCaption,'Filtreaza:');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTodayCaption,'Azi');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateWeekDays,'D L Ma Mi J V S');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarExclude,'Exclud');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exColumnsFloatBar,'Coloane');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,'si');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDate,'Data:');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTitle,'Data');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTo,'la');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarNot,'nu');
set_Description(EXPIVOTLib.DescriptionTypeEnum.exFilterBarOr,'sau');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DataColumns.item['OrderDate'].SortType := EXPIVOTLib.SortTypeEnum.SortDate;
PivotRows := '9';
Refresh();
end
|
|
55
|
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageHeight but infinite width etc
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '6';
PivotColumns := 'sum(5)/3';
Refresh();
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
Options := 'FitToPage = x 5';
PrintExts := (AxPivot1.GetOcx() as EXPIVOTLib.Pivot);
Preview();
end;
end
|
|
54
|
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageWidth but infinite height etc
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '6';
PivotColumns := 'sum(5)/3';
Refresh();
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
Options := 'FitToPage = 5 x';
PrintExts := (AxPivot1.GetOcx() as EXPIVOTLib.Pivot);
Preview();
end;
end
|
|
53
|
How can I get the column from the cursor
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxPivot1_MouseMoveEvent(sender: System.Object; e: AxEXPIVOTLib._IPivotEvents_MouseMoveEvent);
begin
with AxPivot1 do
begin
OutputDebugString( get_ColumnFromPoint(-1,-1) );
end
end;
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
Refresh();
end
|
|
52
|
How can I get the value from the cursor
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxPivot1_MouseMoveEvent(sender: System.Object; e: AxEXPIVOTLib._IPivotEvents_MouseMoveEvent);
begin
with AxPivot1 do
begin
OutputDebugString( get_ValueFromPoint(-1,-1) );
end
end;
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
Refresh();
end
|
|
51
|
How can I specify a column to display HTML format
with AxPivot1 do
begin
Import('Bold <b>1,Bold <b>2#Bold <b>3,Bold <b>4#Bold <b>5,Bold <b>6','eor=''#'' eof='','' hdr=0');
DataColumns.item[TObject(0)].HTML := True;
DataColumns.item[TObject(1)].HTML := True;
PivotRows := '0';
Refresh();
end
|
|
50
|
Does your control supports scrolling by touching the screen
with AxPivot1 do
begin
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Data','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
AutoDrag := Integer(EXPIVOTLib.AutoDragEnum.exAutoDragScrollOnShortTouch) Or Integer(EXPIVOTLib.AutoDragEnum.exAutoDragScroll);
end
|
|
49
|
How can I specify programatically the width of the pivot column ( first column )
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12';
Layout := 'Columns =1;C0.Width = 64';
EndUpdate();
end
|
|
48
|
How can I show the total of each row, when columns are shown as expanded
with AxPivot1 do
begin
BeginUpdate();
IncludeExpandColumn := EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12';
EndUpdate();
end
|
|
47
|
How can I prevent grouping by a specified column
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DataColumns.item['Freight'].AllowGroupBy := EXPIVOTLib.AllowGroupByEnum.exGroupByNone;
end
|
|
46
|
How can I sort alphabetically the columns to be displayed in the context menu/floating panel
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarContextSortAscending) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
PivotColumnsSortOrder := EXPIVOTLib.PivotColumnsSortOrderEnum.exPivotColumnsAscending;
PivotColumnsFloatBarVisible := EXPIVOTLib.PanelVisibleEnum.exPanelVisible;
end
|
|
45
|
How can I prevent dropping data to the control
with AxPivot1 do
begin
AllowDrop := False;
end
|
|
44
|
Is it possible to allow incremental filtering on drop down filter window too, as I can on the control menus
with AxPivot1 do
begin
var_DisplayFilterList := DisplayFilterList;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
DisplayFilterList := Integer(EXPIVOTLib.FilterListEnum.exHideFilterPattern) Or Integer(EXPIVOTLib.FilterListEnum.exFilterListDefault);
end
|
|
43
|
How can I prevent showing the Filter For field in the drop down filter window
with AxPivot1 do
begin
var_DisplayFilterList := DisplayFilterList;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
DisplayFilterList := Integer(EXPIVOTLib.FilterListEnum.exHideFilterPattern) Or Integer(EXPIVOTLib.FilterListEnum.exFilterListDefault);
end
|
|
42
|
How can I display the numeric columns only when selecting a new aggregate, like SUM
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0[bold]';
PivotColumns := 'sum(5)/12,count(5)/12';
DataColumns.item['Freight'].SortType := EXPIVOTLib.SortTypeEnum.SortNumeric;
end
|
|
41
|
How can I add a value column
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12';
end
|
|
40
|
I would like to always have the subtotals in the same row of the "father row". Could that be done
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0[bold],2';
PivotColumns := 'sum(5)/12,count(5)/12';
ShowViewCompact := Integer(EXPIVOTLib.ShowViewCompactEnum.exViewCompactAggregates) Or Integer(EXPIVOTLib.ShowViewCompactEnum.exViewCompact);
PivotTotals := '/sum,sum(0)';
end
|
|
39
|
Is there any way, when I change the filter of the column, it broadcast the filter to the other pivot columns that were duplicated
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0,2';
ShowBranchRows := EXPIVOTLib.ShowBranchRowsEnum.exBranchCompact;
PivotColumns := 'sum(5)/12[filter=''gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZrMJnMoAgI=''],count(5)/12[filter=''gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZr' +
'MJnMoAgI='']';
ShowViewCompact := Integer(EXPIVOTLib.ShowViewCompactEnum.exViewCompactKeepSettings) Or Integer(EXPIVOTLib.ShowViewCompactEnum.exViewCompact);
end
|
|
38
|
How can I summarize more fields in the same cell
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0,2';
ShowBranchRows := EXPIVOTLib.ShowBranchRowsEnum.exBranchCompact;
PivotColumns := 'sum(5)/12,count(5)/12';
ShowViewCompact := EXPIVOTLib.ShowViewCompactEnum.exViewCompact;
end
|
|
37
|
How do I programmatically group by rows, in a compact way, no hierarchy lines
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0,2';
ShowBranchRows := EXPIVOTLib.ShowBranchRowsEnum.exBranchCompact;
end
|
|
36
|
How do I programmatically group by rows
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0,1,2';
LinesAtRoot := EXPIVOTLib.LinesAtRootEnum.exLinesAtRoot;
HasLines := EXPIVOTLib.HierarchyLineEnum.exSolidLine;
end
|
|
35
|
How do I programmatically group by columns
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)/12;6';
end
|
|
34
|
How can I hide the add new button on the pivot bar
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarHideAddNew) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
end
|
|
33
|
Is it possible to show the data that generated the result, when double clicking the row
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0[italic]';
PivotColumns := 'count(0)[underline]';
PivotTotals := 'count[bold,strikeout]';
ShowDataOnDblClick := True;
EndUpdate();
end
|
|
32
|
Does your control support subscript or superscript, in HTML captions
with AxPivot1 do
begin
HeaderHeight := 22;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DataColumns.item['ShipCountry'].Caption := 'ShipCountry<font ;7><off 6><sha ;;0>subscript';
DataColumns.item['ShipRegion'].Caption := 'ShipRegion<font ;7><off -6><sha ;;0>superscript';
Refresh();
end
|
|
31
|
Is it possible to define a different background color for the pivot bar
with AxPivot1 do
begin
set_Background(EXPIVOTLib.BackgroundPartEnum.exPivotBarBackColor,$f0f0f0);
end
|
|
30
|
How can I display an icon/image to Content sub-menu
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
FormatContents.item['numeric'].Name := '<img>1</img> Numeric';
PivotRows := '5[content=numeric]';
end
|
|
29
|
How can I change the selection background in the control's context menu
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
set_Background(EXPIVOTLib.BackgroundPartEnum.exSelBackColorFilter,$ff);
end
|
|
28
|
How can I display the column as date in a long format
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatContents.Add('longdate','longdate(date(value))',Nil);
PivotRows := '9[content=longdate]';
end
|
|
27
|
Is it possible to display the column in upper-case
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatContents.Add('upper','upper(value)',Nil);
PivotRows := '0[content=upper]';
end
|
|
26
|
How can I programatically bold a column
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0[bold]';
end
|
|
25
|
How can I display the total with a different foreground color
with AxPivot1 do
begin
FormatAppearances.Add('fore',Nil).ForeColor := $ff;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)';
PivotTotals := 'sum[fore,bold]';
end
|
|
24
|
How can I display the total with a different background color/ebn
with AxPivot1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
FormatAppearances.Add('back',Nil).BackColor := $1000000;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)';
PivotTotals := 'sum[back]';
end
|
|
23
|
How can I display the total with a solid background color
with AxPivot1 do
begin
FormatAppearances.Add('back',Nil).BackColor := $f0f0f0;
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumns := 'sum(5)';
PivotTotals := 'sum[back]';
end
|
|
22
|
Is it possible to change the "bold" caption in the control's context menu
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatAppearances.item['bold'].Name := 'Ingrosat';
end
|
|
21
|
Is it possible to show no Exclude field in the filter window
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DisplayFilterList := Integer(EXPIVOTLib.FilterListEnum.exShowCheckBox) Or Integer(EXPIVOTLib.FilterListEnum.exSortItemsAsc);
end
|
|
20
|
How can I prevent showing the drop down filter button
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
DisplayFilterList := EXPIVOTLib.FilterListEnum.exNoItems;
end
|
|
19
|
How do I get the count of positive values only
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
Aggregates.Add('positive','sum',Nil,Nil).FormatValue := 'value < 0 ? 0 : 1';
PivotRows := '0';
PivotColumns := 'positive(5)';
end
|
|
18
|
How do I get the sum for negative values only
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
Aggregates.Add('negative','sum',Nil,Nil).FormatValue := 'value < 0 ? value : 0';
PivotRows := '0';
PivotColumns := 'negative(5)';
end
|
|
17
|
My data stores the data as strings, is it possible to load the data using Import method
with AxPivot1 do
begin
Import('''string 1'';''string 2''#''string 3'';''string 4''','str=`''` eor=''#'' eof='';'' hdr=0');
end
|
|
16
|
Is it possible to load data using different separators
with AxPivot1 do
begin
Import('item 1;item 2#item 3;item 4','eor=''#'' eof='';'' hdr=0');
end
|
|
15
|
Is it possible to align a column
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with DataColumns.item[TObject(0)] do
begin
Alignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXPIVOTLib.AlignmentEnum.RightAlignment;
end;
Refresh();
end
|
|
14
|
How can I change by code the column/rows background color
with AxPivot1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
FormatAppearances.Add('aka',Nil).BackColor := $1000000;
PivotRows := '0[aka]';
EndUpdate();
end
|
|
13
|
How can I apply by code any appearance to my list
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0[italic]';
PivotColumns := 'count(0)[underline]';
PivotTotals := 'count[bold,strikeout]';
EndUpdate();
end
|
|
12
|
How can I display an icon instead SUM/Total field
with AxPivot1 do
begin
BeginUpdate();
Images('gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwmFw2Hw9+xUsxGNx2Px+LyUnyGVy2VyeZAGNjIJjITjIb0OjjGi0ukAAVj' +
'ILzmayWtAGejCvjLh2u3jG23O4ACx1ew11+zEYGsZZsZUe/wkZ4sYZvD4PCy8kjAzjLFjKd5WDjIz6HRvnTwUZGMZX8ZTPb8XU8Hh9cFjALjKVjK5jIv9/w9t78WdjJI' +
'oyWr7sKjIWu+/a8Og2QAEajLaIxAzlwhB0DwQuzoECjJWw1DiMQ3D0OgAQMKwsuj8xOy0SrzFEWMdFUExbGMCRfC8ZRswMaLsiofJVHiOo+kKRs2lL2Jsh8cyQo6Ag==' +
'');
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with Aggregates.item['sum'] do
begin
Name := '<img>1</img> Sum';
Caption := '<img>1</img>';
end;
PivotColumnsFloatBarVisible := EXPIVOTLib.PanelVisibleEnum.exPanelVisible;
FormatPivotHeader := 'iaggregate ? (caggregate + (iaggregate != 5 ? '' '' : '''') + caption) : caption';
FormatPivotTotal := 'caggregate';
PivotRows := '0';
PivotColumns := 'sum(5)';
PivotTotals := 'sum,count';
EndUpdate();
end
|
|
11
|
How can I change the caption to be displayed when dragging an aggregate function
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotColumnsFloatBarVisible := EXPIVOTLib.PanelVisibleEnum.exPanelVisible;
FormatPivotHeader := '(iaggregate ? (''<b>'' + upper(caggregate) + ''</b> of '' + caption) : caption)';
PivotRows := '0';
PivotColumns := 'sum(5)';
PivotTotals := 'sum,count';
EndUpdate();
end
|
|
10
|
I am using Import method, just wondering if I can rename the columns
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
with DataColumns.item[TObject(0)] do
begin
Caption := 'New Caption';
PivotCaption := 'New Pivot Caption';
end;
Refresh();
end
|
|
9
|
Does your control support Fit-To-Page Print and Print Preview
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0,1,2';
ExpandAll();
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
Options := 'FitToPage = On';
PrintExts := (AxPivot1.GetOcx() as EXPIVOTLib.Pivot);
Preview();
end;
end
|
|
8
|
How can I print the control
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0,1,2';
ExpandAll();
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
PrintExts := (AxPivot1.GetOcx() as EXPIVOTLib.Pivot);
Preview();
end;
end
|
|
7
|
How can I hide the pivot bar (hide completly)
with AxPivot1 do
begin
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable);
end
|
|
6
|
How can I hide the pivot bar (auto-hide)
with AxPivot1 do
begin
PivotBarVisible := Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoHide) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable) Or Integer(EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible);
end
|
|
5
|
How can I count and get the total of a specified column
with AxPivot1 do
begin
BeginUpdate();
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotColumnsFloatBarVisible := EXPIVOTLib.PanelVisibleEnum.exPanelVisible;
PivotRows := '0';
PivotColumns := 'sum(5)';
PivotTotals := 'sum,count';
EndUpdate();
end
|
|
4
|
How can I add show the columns once I grouped a column
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0';
PivotColumnsFloatBarVisible := EXPIVOTLib.PanelVisibleEnum.exPanelVisible;
end
|
|
3
|
How can I programatically group the columns
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
PivotRows := '0:D';
end
|
|
2
|
Is it possible to load data from a data source
with AxPivot1 do
begin
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Data','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
end
|
|
1
|
How can I load data
with AxPivot1 do
begin
Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
end
|